setdisplay(480,120,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
    a=isfbsd
  if a<>0 then
     prints("this example is running on FreeBSD") 
   else
     prints("this example is not running on FreeBSD") 
   end if
waitkey


